program pointer;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i:integer;
  a: array [0..99] of integer;
  b: ^integer;
begin
  b:= @a[0];
  randomize;
  a[0]:=10;
  for i:=1 to 99 do
    a[i]:=random(200);

  writeln (b^);
  readln;
end.
